﻿Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports BusinessLogicLayer
Imports BE = BusinessEntities

Partial Class repReservasXCliente
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

            Dim capanegocios As New ClienteBL

            'Invocamos al método ListarPaises definido previamente en la clase
            ddlCliente.DataSource = capanegocios.ListarNombreCompletoClientes
            ddlCliente.DataValueField = "COD_CLI"
            ddlCliente.DataTextField = "NOMCOMPLETO"
            ddlCliente.DataBind()

        End If

    End Sub

    Protected Sub btnReporte_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnReporte.Click
        'no mostramos los controles hasta que pasen la validación
        'crvReservasXCliente.Visible = False
        lblmensaje.Visible = False

        Dim reporte As New ReportDocument
        reporte.Load(Server.MapPath("repReservasXCliente.rpt"))
        'Instanciamos la clase
        Dim capanegocios As New ReservaBL
        'Instanciamos la entidad 
        Dim objeto As New BE.ReservaBE
        'Llenamos la propiedad que nos interesa 
        objeto.codigocliente = ddlCliente.SelectedItem.Value

        If capanegocios.BuscarReservas_x_Cliente(objeto).Tables("LasReservasXCliente").Rows.Count > 0 Then
            'crvReservasXCliente.Visible = True
            'Establecemos el origen de datos del reporte
            reporte.SetDataSource(capanegocios.BuscarReservas_x_Cliente(objeto).Tables("LasReservasXCliente"))
            'Establecemos el reporte a mostrar en el visor
            'crvReservasXCliente.ReportSource = reporte
            'crvReservasXCliente.RefreshReport()
        Else
            lblmensaje.Visible = True
            lblmensaje.Text = "El cliente " & ddlCliente.SelectedItem.Text & " carece de reservas"

        End If

        'Liberamos recursos
        capanegocios = Nothing
        objeto = Nothing


        

    End Sub
End Class
